unit UFrmReport;

interface

uses
  Windows, Messages, frxClass, frxDBSet, Classes, Forms, SysUtils,
  frxExportRTF, frxExportXML, frxExportXLS, frxExportHTML, frxExportPDF;

type
  TFrmReport = class(TForm)
    DBDataset: TfrxDBDataset;
    DBFilho1: TfrxDBDataset;
    DBFilho2: TfrxDBDataset;
    frxReport: TfrxReport;
    frxPDFExport: TfrxPDFExport;
    frxHTMLExport: TfrxHTMLExport;
    frxXLSExport: TfrxXLSExport;
    frxXMLExport: TfrxXMLExport;
    frxRTFExport: TfrxRTFExport;
    procedure frxReportBeforePrint(Sender: TfrxReportComponent);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmReport: TFrmReport;

implementation

uses Var_Global, uDMGeral;

{$R *.dfm}

{ TFrmReport }

procedure TFrmReport.frxReportBeforePrint(Sender: TfrxReportComponent);
begin
  frxReport.Variables['Rel_Usuario'       ] := 'ADMIN';
  frxReport.Variables['Rel_Empresa_Imagem'] := QuotedStr(GS_CAMINHO_REL + '\Logo.jpg');
  frxReport.Variables['Rel_Empresa_Nome'  ] := QuotedStr('Igreja SHALOM');
end;

end.
